home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 14 / Hot Mix 14.iso / HTML / vendors / finesse / fsperlinit < prev    next >
Text File  |  1996-06-27  |  627b  |  18 lines
  1. # Finesse definitions for perl scripts
  2.  
  3. $ENV{'SHELLTYPE'}='perl';
  4. $ENV{'PATH'} = "$ENV{'FINESSEPATH'}/bin:$ENV{'PATH'}";
  5.  
  6. sub Fsclose   { local($a)=join("\" \"",@_) ;
  7.         eval `fsclose "$a"`; !$@ && !$? ; }
  8. sub Fsdisplay { local($a)=join("\" \"",@_) ; 
  9.                 eval `fsdisplay "$a"` ; 
  10.         !$@ && !$? || die "$@Error in Fsdisplay"; }
  11. sub Fsecho    { local($a)=join("\" \"",@_) ; 
  12.         eval `fsecho "$a"`; !$@ && !$? ; }
  13. sub Fsopen    { local($a)=join("\" \"",@_) ; 
  14.         eval `fsopen -n $0 -p $$ "$a"` ;
  15.         !$@ && !$? || die "$@Error in Fsopen"; }
  16. sub Fssave    { local($a)=join("\" \"",@_) ;
  17.         eval `fssave "$a"`; !$@ && !$? ; }
  18.